home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / casio_st / prog_fx / oisac2 / l_5060.txt < prev    next >
Text File  |  1994-03-01  |  2KB  |  60 lines
  1. 5 ONERRORGOTO1000
  2. 10 MODE8:DIM:c$=CHR$(5):ANGLE0:a=1:b=0:c=0:d=0
  3. 20 CLS:PRINT"axþ+bxý+cx+d=0";
  4. 30 s$="a":z=a:GOSUB700:a=z:IFa=0 THEN30
  5. 40 s$="b":z=b:GOSUB700:b=z
  6. 50 s$="c":z=c:GOSUB700:c=z
  7. 60 s$="d":z=d:GOSUB700:d=z
  8. 70 LOCATE0,1:PRINTc$;".....";
  9. 100 u=b/a/3:p=c/a/3-u*u:q=2*u*u*u-u*c/a+d/a
  10. 102 IFABSp<u*u*1e-10 THENp=0
  11. 104 IFABSq<u*u*u*1e-10 THENq=0
  12. 110 t=q*q+4*p*p*p:IFABSt<q*q*5e-10 THENt=0
  13. 115 r=(q+SQR(ABSt))/2:s=(q-SQR(ABSt))/2:r=SGNr*CUR(ABSr):s=SGNs*CUR(ABSs)
  14. 120 v=r+s
  15. 130 ONSGNt+2 GOTO400,,300
  16. 140 x=-v-u:IFp THEN200
  17. 175 GOSUB520:PRINT"a(x-à)þ=0";:PRINT
  18. 180 PRINTc$;"à =";x;
  19. 190 GOSUB550:IFw=13 THEN20 ELSE190
  20. 200 y=v/2-u
  21. 205 GOSUB510:PRINT"a(x-à)(x-á)ý=0";:PRINT
  22. 210 PRINTc$;"à =";x;
  23. 230 GOSUB550:IFw<>13 ANDw<>31 THEN230
  24. 240 PRINTc$;"á =";y;
  25. 260 GOSUB550:IFw=30 THEN210 ELSEIFw=13 THEN20 ELSE260
  26. 300 x=-v-u:y=v/2-u:z=ABS(SQR3/2*(r-s))
  27. 302 GOSUB500:PRINT"a(x-à)(x-á)(x-Ü)=0";:PRINT
  28. 305 y$=STR$(y)+" ":z$=MID$(STR$(z),2):IFy=0 THENy$=""
  29. 310 PRINTc$;"à =";x;
  30. 330 GOSUB550:IFw<>13 ANDw<>31 THEN330
  31. 340 PRINTc$;"á =";y$;:IFy THENPRINT"+";
  32. 350 IFz-1 THENPRINT" ";z$;"i"; ELSEPRINT" i";
  33. 360 GOSUB550:IFw=30 THEN310 ELSEIFw<>13 ANDw<>31 THEN360
  34. 370 PRINTc$;"Ü =";y$;"-";:IFy THENPRINT" ";
  35. 380 IFz-1 THENPRINTz$;"i"; ELSEPRINT"i";
  36. 390 GOSUB550:IFw=30 THEN340 ELSEIFw=13 THEN20 ELSE390
  37. 400 h=ACS(q/2/SQR(ABS(-p*p*p)))/3:i=-2*SQR(ABS(-p)):x=i*COSh-u:y=i*COS(h+120)-u:z=i*COS(h+240)-u
  38. 405 GOSUB500:PRINT"a(x-à)(x-á)(x-Ü)=0";:PRINT
  39. 410 PRINTc$;"à =";x;
  40. 430 GOSUB550:IFw<>13 ANDw<>31 THEN430
  41. 440 PRINTc$;"á =";y;
  42. 460 GOSUB550:IFw=30 THEN410 ELSEIFw<>13 ANDw<>31 THEN460
  43. 470 PRINTc$;"Ü =";z;
  44. 490 GOSUB550:IFw=30 THEN440 ELSEIFw=13 THEN20 ELSE490
  45. 500 IFz<>0 ANDABSz>=1e-90 THENz=ROUND(z,LOG(ABSz)-7)
  46. 502 IFz<>0 ANDABSz<1e-90 THENz=z*1e10:z=ROUND(z,LOG(ABSz)-7):z=z/1e10
  47. 505 IFABSz<ABSu*1e-10 THENz=0
  48. 510 IFy<>0 ANDABSy>=1e-90 THENy=ROUND(y,LOG(ABSy)-7)
  49. 512 IFy<>0 ANDABSy<1e-90 THENy=y*1e10:y=ROUND(y,LOG(ABSy)-7):y=y/1e10
  50. 515 IFABSy<ABSu*1e-10 THENy=0
  51. 520 IFx<>0 ANDABSx>=1e-90 THENx=ROUND(x,LOG(ABSx)-7)
  52. 522 IFx<>0 ANDABSx<1e-90 THENx=x*1e10:x=ROUND(x,LOG(ABSx)-7):x=x/1e10
  53. 525 IFABSx<ABSu*1e-10 THENx=0
  54. 530 CLS:RETURN
  55. 550 LOCATE0,0:LOCATE0,1:w=ASC(INPUT$(1,@)):RETURN
  56. 700 LOCATE0,1:PRINTc$;s$;"=";z;"?";:INPUT@42;z:LOCATE0,0:RETURN
  57. 1000 IFERR=1 THENCLS:ONERRORGOTO0
  58. 1010 IFERL=700 THENRESUME700
  59. 1050 LOCATE0,1:PRINTc$;"not found";:z$=INPUT$(1,@):RESUME20
  60.